home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DEM / N-R / Photone Prepress 2.04.cpt / Photone Prepress™v.2.04D.rsrc / PSTx_6_TransTest < prev    next >
Text File  |  1993-03-18  |  3KB  |  198 lines
  1.  
  2. %© 1990 by CEP, Inc.  All Rights Reserved.
  3. %Prints transfer curve test as separations
  4.  
  5. /ppSetFrequency 
  6. {
  7.     /htFrequency exch def
  8. } def
  9.  
  10. /ppSetAngle
  11. {
  12.     /htAngle exch def
  13. } def
  14.  
  15. /ppSetSpotFunction
  16. {
  17.     /htSpotFunc exch def
  18. } def
  19.  
  20. /ppSetPrinterCurve
  21. {    /printerCurve exch def
  22. } def
  23.  
  24. /transFunc
  25. {
  26.     255 mul cvi 
  27.     printerCurve exch get
  28.     255 div
  29. } bind def
  30.  
  31. /doRegisterMark
  32. {    
  33.     /ppVVal exch def
  34.     /ppHVal exch def
  35.     
  36.        gsave
  37.         ppHVal ppVVal translate 
  38.         0 setgray
  39.         0 0 moveto
  40.            .24 setlinewidth 0 0 6 0 360 arc stroke
  41.            -10 0 moveto 
  42.         20 0 rlineto 
  43.         0 -10 moveto 
  44.         0 20 rlineto 
  45.         stroke
  46.     grestore
  47. } def
  48.  
  49. /doSquare
  50.     {    
  51.         /ppGrVal exch def
  52.         -1 add /ppWid exch def
  53.         gsave
  54.             ppGrVal setgray
  55.             newpath
  56.                 0 0 moveto
  57.                 0 ppWid lineto
  58.                 ppWid ppWid lineto
  59.                 ppWid 0 lineto
  60.             closepath
  61.             fill
  62.         grestore
  63.     } bind def
  64.  
  65. /labelSquare
  66.     {    
  67.         /ppGrVal exch def
  68.         /ppWid exch def
  69.         gsave
  70.             5 ppWid 2 add moveto
  71.             0 setgray
  72.             ppGrVal (            ) cvs show
  73.         grestore
  74.     } bind def
  75.  
  76.  
  77. /doHilitePatches
  78. {
  79.     /ppVVal exch def
  80.     /ppHVal exch def
  81.     /ppSVal 24 def
  82.     /ppSPVal -40 def
  83.     /ppGVal .99 def
  84.     /ppPcnt 1 def
  85.     
  86.     gsave
  87.         htFrequency htAngle {htSpotFunc} setscreen
  88.         /Courier-Bold findfont
  89.         9 scalefont setfont
  90.         ppHVal ppVVal translate
  91.         0 1 9
  92.         {     pop 
  93.             ppSVal ppGVal doSquare 
  94.             ppSVal ppPcnt labelSquare 
  95.             ppSVal 0 translate 
  96.             /ppGVal ppGVal .01 sub def
  97.             /ppPcnt ppPcnt 1 add def    
  98.         } for 
  99.     grestore
  100.  
  101.     gsave
  102.         ppHVal ppVVal translate
  103.         0 ppSVal neg -6 translate
  104.         0 setgray
  105.         .24 setlinewidth
  106.         newpath
  107.             ppSVal 0 moveto
  108.             ppSVal 10 mul 0 rlineto
  109.         closepath
  110.         stroke
  111.     grestore
  112.  
  113. } bind def
  114.  
  115. /doDotPatches
  116. {
  117.     /ppVVal exch def
  118.     /ppHVal exch def
  119.  
  120.     ppHVal ppVVal doHilitePatches
  121.  
  122.     /ppSVal 24 def
  123.     /ppSPVal -40 def
  124.     /ppGVal .98 def
  125.     /ppPcnt 2 def
  126.  
  127.     gsave
  128.         {transFunc} settransfer
  129.         htFrequency htAngle {htSpotFunc} setscreen
  130.         /Courier-Bold findfont
  131.         9 scalefont setfont
  132.         ppHVal ppVVal ppSPVal -10 add add translate
  133.         0 1 4 
  134.         {    pop 
  135.             gsave
  136.                 0 1 9
  137.                 {     pop 
  138.                     ppSVal ppGVal doSquare 
  139.                     ppSVal ppPcnt labelSquare 
  140.                     ppSVal 0 translate 
  141.                     /ppGVal ppGVal .02 sub def
  142.                     /ppPcnt ppPcnt 2 add def    
  143.                 } for 
  144.              grestore
  145.             0 ppSPVal translate
  146.         } for
  147.     grestore
  148. } bind def
  149.  
  150. /doLabel 
  151. {    /label exch def
  152.     gsave
  153.         /Courier-Bold findfont
  154.         12 scalefont setfont
  155.         72 72 moveto
  156.         label show
  157.     grestore
  158. } bind def
  159.  
  160. /doRegistration
  161. {
  162.     150 710 doRegisterMark
  163.     150 80  doRegisterMark
  164.     470 710 doRegisterMark
  165.     470 80  doRegisterMark
  166. } def
  167.  
  168. /ppDoCyan
  169. {
  170.     50 630 doDotPatches
  171.     doRegistration
  172.     (Cyan) doLabel
  173.  
  174. } def
  175.  
  176. /ppDoMagenta
  177. {
  178.     325 630 doDotPatches
  179.     doRegistration
  180.     (Magenta) doLabel
  181. } def
  182.  
  183. /ppDoYellow
  184. {    
  185.     50 330 doDotPatches
  186.     doRegistration
  187.     (Yellow) doLabel
  188.     grestore
  189. } def
  190.  
  191. /ppDoBlack
  192. {
  193.     325 330 doDotPatches
  194.     doRegistration
  195.     (Black) doLabel
  196. } def
  197.  
  198.